import Data.Char

digitSum :: Integer -> Int
digitSum x = sum $ map ((subtract 48).ord) (show x)

euler_056 = maximum $ map digitSum [a^b|a<-[1..100],b<-[1..100]]
